home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earkit / mailer / voodoo / s / buffermail < prev    next >
Text File  |  1997-05-03  |  403b  |  18 lines
  1. Key MailFile/A,StorageDir/A
  2. bra {
  3. ket }
  4. ; By Allan Odgaard. If online, send immediately, otherwise copy to storage
  5. ; directory for later processing.
  6.  
  7. failat 99
  8. rx "address rxslip.1 'popup'; address rxslip.1 'hide'"    ; any rexx command will do
  9. If warn
  10.   C:Copy {MailFile} {StorageDir}
  11.  Else
  12.   PutMail Mail={MailFile} Home=Home: NoAddr NoHead NoSig
  13.     If warn
  14.      C:Copy {MailFile} {StorageDir}
  15.     EndIf    
  16. EndIf
  17.  
  18.